home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / frmshp10 / frmtestb.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-06  |  2.9 KB  |  103 lines
  1. VERSION 5.00
  2. Object = "{32655CFB-5D17-11D2-8579-0000B45BA472}#4.0#0"; "FormResizeOcx.ocx"
  3. Begin VB.Form FrmTestBas 
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   9000
  7.    ClientLeft      =   2385
  8.    ClientTop       =   1440
  9.    ClientWidth     =   11220
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   9000
  15.    ScaleWidth      =   11220
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.CommandButton Command3 
  19.       Caption         =   "PoliLine"
  20.       Height          =   555
  21.       Left            =   4380
  22.       TabIndex        =   3
  23.       Top             =   180
  24.       Width           =   1455
  25.    End
  26.    Begin VB.CommandButton Command2 
  27.       Caption         =   "Rectangular"
  28.       Height          =   555
  29.       Left            =   2400
  30.       TabIndex        =   2
  31.       Top             =   180
  32.       Width           =   1455
  33.    End
  34.    Begin VB.CommandButton Command1 
  35.       Caption         =   "Elliptic"
  36.       Height          =   555
  37.       Left            =   480
  38.       TabIndex        =   0
  39.       Top             =   180
  40.       Width           =   1455
  41.    End
  42.    Begin VB.PictureBox Picture1 
  43.       AutoSize        =   -1  'True
  44.       Height          =   10560
  45.       Left            =   0
  46.       ScaleHeight     =   10500
  47.       ScaleWidth      =   10500
  48.       TabIndex        =   1
  49.       ToolTipText     =   "Click to exit"
  50.       Top             =   0
  51.       Width           =   10560
  52.       Begin FormResizeOcx.FormRsz FormRsz1 
  53.          Left            =   780
  54.          Top             =   2040
  55.          _ExtentX        =   1429
  56.          _ExtentY        =   1270
  57.       End
  58.    End
  59. Attribute VB_Name = "FrmTestBas"
  60. Attribute VB_GlobalNameSpace = False
  61. Attribute VB_Creatable = False
  62. Attribute VB_PredeclaredId = True
  63. Attribute VB_Exposed = False
  64. Option Explicit
  65. Private Sub Command1_Click()
  66. With Me
  67.  FormRsz1.EllipTic .hWnd, 0, 0, .Width, .Height
  68. End With
  69. End Sub
  70. Private Sub Command2_Click()
  71. With Me
  72.  FormRsz1.Square .hWnd, 0, 0, .Width - 500, .Height - 500
  73. End With
  74. End Sub
  75. Private Sub Command3_Click()
  76.  'In this sample we have two data file so we have to call two times
  77.  'the data filling
  78.  FillData1  'Dati_1.bas
  79.  FillData2  'Dati_2.bas
  80.  FillData3  'Dati_3.bas
  81.  FillData4  'Dati_4.bas
  82.  'Adjust the Image
  83.  FormRsz1.ShiftX = 1
  84.  FormRsz1.ShiftY = 2
  85.  'Display it
  86. With Me
  87.  FormRsz1.PoliLine .hWnd, D, NumDataPoints
  88. End With
  89. End Sub
  90. Private Sub Form_Load()
  91.  Picture1.Picture = LoadPicture(App.Path + "\" + "MyHeart1.bmp")
  92. End Sub
  93. Private Sub Form_Paint()
  94.  Height = Picture1.Height
  95.  Width = Picture1.Width
  96. End Sub
  97. Private Sub Form_Unload(Cancel As Integer)
  98.  'Cancel = True
  99. End Sub
  100. Private Sub Picture1_Click()
  101.  Unload Me
  102. End Sub
  103.